home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / greatcir.asc < prev    next >
Text File  |  1990-10-14  |  1KB  |  32 lines
  1. 1 'DISTANCE AND BEARING
  2. 10 CLS:K=57.2958
  3. 20 PRINT"COORDINATES OF SITE ONE(1) ARE AS FOLLOWS:"
  4. 30 INPUT "LATTITUDE (D,M,S):";D(1),M(1),S(1)
  5. 40 LA(1)=D(1)+M(1)/60+S(1)/3600
  6. 50 INPUT "LONGITUDE (D,M,S) W:" ;D(2),M(2),S(2)
  7. 60 LO(1)=D(2)+M(2)/60+S(2)/3600
  8. 70 PRINT "COORDINATES OF SITE TWO ARE AS FOLLOWS:"
  9. 80 INPUT "LATITUDE (D,M,S) N:";D(3),M(3),S(3)
  10. 90 LA(2)=D(3)+M(3)/60+S(3)/3600
  11. 100 INPUT "LONGITUDE (D,M,S) W:";D(4),M(4),S(4)
  12. 110 LO(2)=D(4)+M(4)/60+S(4)/3600
  13. 125 A=LO(1)-LO(2):B=LA(1)-LA(2)
  14. 130 C=COS(LA(1)/K)*COS(LA(2)/K)
  15. 140 D=C*COS(ABS(A/K))+COS(ABS(B/K))-C
  16. 150 E=ATN(SQR(1-D^2)/D)
  17. 160 SM=E*K*60*1.1508
  18. 170 F=SIN(ABS(A/2)/K)*COS(((LA(1)+LA(2))/2)/K)/SIN(E/2)
  19. 180 IF INT (F)=1 THEN F=90:GOTO 200
  20. 190 F=ATN(F/SQR(1-F^2))*K
  21. 200 IF A>0 AND B<0 THEN BRG=F:GOTO 240
  22. 210 IF A=>0 AND B>O THEN BRG=180-F:GOTO 240
  23. 220 IF A<0 AND B>0 THEN BRG=180+F:GOTO 240
  24. 230 BRG=360-F
  25. 240 PRINT "SITE ONE(1) NORTH LATITUDE:";D(1);M(1);S(1)
  26. 250 PRINT "            WEST LONGITUDE:";D(2);M(2);S(2)
  27. 260 PRINT "SITE TWO(2) NORTH LATITUDE:";D(3);M(3);S(3)
  28. 270 PRINT "            WEST LONGITUDE:";D(4);M(4);S(4)
  29. 280 PRINT "DISTANCE BETWEEN SITES:";SM;"MILES
  30. 290 PRINT "BEARING FROM SITE ONE(1) TO SITE TWO(2):";BRG;"DEGREES TRUE"
  31. 300 END
  32.